home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Graphics Programming (2nd Edition) / Visual Basic Graphics Programming 2nd Edition.iso / Src / Ch17 / Trans5.ray < prev    next >
Text File  |  1999-07-06  |  1KB  |  47 lines
  1. Viewpoint(1000, 0, 0)
  2. AmbientLight(128, 128, 128)
  3. LightSource(-1000, -500, 1000, 255, 255, 255)
  4. LightSource(1000, -500, 1000, 255, 255, 255)
  5. Sphere( 100, 0, 0, 0,
  6.   0.1, 0.1, 0.1, ' Ambient.
  7.   0.1, 0.1, 0.1, ' Diffuse.
  8.   20, 0.35,      ' Specular.
  9.   0, 0, 0,       ' Reflected.
  10.   3, 1, 1.4,     ' TransN, n1, n2.
  11.   0.9, 0.9, 0.9  ' Tansmission.
  12. )
  13.  
  14. Sphere( 50, -1000, 0, 75,
  15.   0.7, 0.1, 0.1, ' Ambient.
  16.   0.7, 0.1, 0.1, ' Diffuse.
  17.   20, 0.35,      ' Specular.
  18.   0, 0, 0,       ' Reflected.
  19.   3, 1, 1.4,     ' TransN, n1, n2.
  20.   0, 0, 0        ' Tansmission.
  21. )
  22. Sphere( 50, -1000, 0, -75,
  23.   0.1, 0.7, 0.1, ' Ambient.
  24.   0.1, 0.7, 0.1, ' Diffuse.
  25.   20, 0.35,      ' Specular.
  26.   0, 0, 0,       ' Reflected.
  27.   3, 1, 1.4,     ' TransN, n1, n2.
  28.   0, 0, 0        ' Tansmission.
  29. )
  30. Sphere( 50, -1000, 75, 0,
  31.   0.1, 0.1, 0.7, ' Ambient.
  32.   0.1, 0.1, 0.7, ' Diffuse.
  33.   20, 0.35,      ' Specular.
  34.   0, 0, 0,       ' Reflected.
  35.   3, 1, 1.4,     ' TransN, n1, n2.
  36.   0, 0, 0        ' Tansmission.
  37. )
  38. Sphere( 50, -1000, -75, 0,
  39.   0.7, 0.1, 0.7, ' Ambient.
  40.   0.7, 0.1, 0.7, ' Diffuse.
  41.   20, 0.35,      ' Specular.
  42.   0, 0, 0,       ' Reflected.
  43.   3, 1, 1.4,     ' TransN, n1, n2.
  44.   0, 0, 0        ' Tansmission.
  45. )
  46.  
  47.